home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Applications / Aldus FreeHand 2.02 / Aldus FreeHand 2.02.rsrc / STR#_306.txt < prev    next >
Text File  |  1989-06-23  |  1KB  |  43 lines
  1. 3 add index exch 2 add index dup 4 1 roll sub mul add counttomark 1 add 1 roll cleartomark}
  2.  
  3.  
  4.  counttomark dup 3 add -1 roll exch 2 sub mul dup floor cvi dup 3 1 roll sub exch dup
  5.  
  6.  
  7. {exch pop abs 1 exch sub}
  8.  
  9.  
  10. {abs exch abs 2 copy add 1 gt{1 sub dup mul exch 1 sub dup mul add 1 sub}{dup mul exch dup mul add 1 exch sub}ifelse}
  11.  
  12.  
  13. /yxlate dh sy mul neg def x0 y0 translate w h imbits[sx 0 0 sy 0 yxlate]{cyanrp}{magentarp}{yellowrp}{blackrp}true 4 colorimage}def
  14.  
  15.  
  16. /sx w dw div def/sy h dh div neg def
  17.  
  18.  
  19. /tweakfunc load AldSettransfer freq angle/spotfunc load setscreen
  20.  
  21.  
  22. /AldSettransfer{fixtransfer}def
  23.  
  24.  
  25. %
  26.  
  27.  
  28. % *** redefine settransfer ***
  29.  
  30.  
  31. /cyanbuf w imbits mul 7 add 8 idiv string def cyanbuf length dup dup/magentabuf exch string def/yellowbuf exch string def/blackbuf exch string def
  32.  
  33.  
  34. /S_IMAGEV3{/iminv true store/tweakfunc xdf/spotfunc xdf/angle xdf/freq xdf/imbits exch store/h xdf/w xdf 10 div/dh xdf 10 div/dw xdf 10 div/y0 xdf 10 div/x0 xdf/AsBin xdf
  35.  
  36.  
  37. /yxlate dh sy mul neg def x0 y0 translate w h iminv not[sx 0 0 sy 0 yxlate]{currentfile imbuf readhexstring pop}imagemask}def
  38.  
  39.  
  40. /S_IMAGEMASKV3{/clr xdf/iminv exch not store/h xdf/w xdf 10 div/dh xdf 10 div/dw xdf 10 div/y0 xdf 10 div/x0 xdf/AsBin xdf/sx w dw div def/sy h dh div neg def/imbuf w 7 add 8 idiv string def
  41.  
  42.  
  43.